﻿Public Class UCNetDecoder
    Private M_AddrA As String
    Private M_AddrB As String

    Public Property AddrA() As String
        Get
            Return M_AddrA
        End Get
        Set(ByVal value As String)
            M_AddrA = value
        End Set
    End Property
    Public Property AddrB() As String
        Get
            Return M_AddrB
        End Get
        Set(ByVal value As String)
            M_AddrB = value
        End Set
    End Property
    Public Function Decode(ByVal Bytes As Byte()) As Integer
        AddrA = Bytes(0).ToString
        AddrB = Bytes(1).ToString
        Dim C As Integer = CInt(Bytes(2))
        Return C
    End Function
End Class
